home *** CD-ROM | disk | FTP | other *** search
/ Kimeruze! Yamikon! / Kimeruze! Yamikon!.iso / pc / yarikon / wevent09.dxr / 00052.ls < prev    next >
Encoding:
Text File  |  1996-10-23  |  350 b   |  21 lines

  1. on exitFrame
  2.   global selected
  3.   sound stop 2
  4.   set data to random(3)
  5.   if data = (selected - 1) then
  6.     set data to data + 1
  7.     if data > 3 then
  8.       set data to random(2)
  9.     end if
  10.   end if
  11.   if data = 1 then
  12.     go(the frame + 1)
  13.   end if
  14.   if data = 2 then
  15.     go(the frame + 3)
  16.   end if
  17.   if data = 3 then
  18.     go(the frame + 5)
  19.   end if
  20. end
  21.